Dino Crisis Digital Press Kit/Dino Crisis Digital Press Kit.iso/mac/Xtras/Behavior Library for Java.cst/00026_Script_UI Pointer Change

Text File | 1998-04-08 | 2KB | 52 lines

-- Pointer Change


-- Behavior Library 1.1 for Java
-- Changes the stage cursor for the movie, add to any sprite on stage.

property  currentPointer, pointerStyle
property  Rpointerstyle


on beginSprite me
    changecursor me
end

on EndSprite me
    restorecursor me
end

on ChangeCursor me
  set currentPointer = translate_cursor( me, pointerStyle)
  cursor( currentPointer )
end

on restoreCursor me
  set currentPointer = translate_cursor( me, RpointerStyle)
  cursor( currentPointer )
end

on translate_cursor me, setting

  if chars (setting,1,1) = "C" then return (2)
  if chars (setting,1,1) = "A" then return (-1)
  if chars (setting,1,1) = "W" then return (4)
  if chars (setting,1,1) = "I" then return (1)
  return (1)
end



---

on getPropertyDescriptionList

  set p_list = [  #pointerStyle:[ #comment:   "Pointer:" ,#format:   #string, #default:   "Watch", #range :["Arrow", "I-Beam", "Crosshair", "Watch"] ],   #RpointerStyle: [ #comment:   "Pointer:" ,#format:   #string, #default:   "Watch", #range :["Arrow", "I-Beam", "Crosshair", "Watch"] ]  ]
  return p_list
end

on getBehaviorDescription
  return "Changes the Java pointer when sprite begins, and restores when sprite ends. Attach the behavior to a sprite or place it in the script channel." & RETURN & "PARAMETERS:" & RETURN & "ï Pointer - Choose one of Director's included pointers."  & RETURN & "ï Restored Pointer - Choose one of Director's included pointers to be displayed when the sprite ends."

end